home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].7z / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].adf / piarc.lzh.parta / davetest.rexx < prev    next >
OS/2 REXX Batch file  |  1994-03-17  |  1KB  |  56 lines
  1. /*
  2.  * TRENDTEST.rexx does a simple contrast trend over a sequence
  3.  *
  4.  * The name of this script should be put in as the pre-render script.
  5.  *
  6.  * This example takes special actions at the first frame and the
  7.  * last frame; however, these actions could alternatively be done in
  8.  * the beginning and ending script.
  9.  */
  10.  
  11.  parse arg iframe nframe '"' renderfile '"'
  12.  
  13. address('IM_Port');
  14.  
  15.  
  16. if iframe = 1 then do
  17.   options results;
  18.   'trenddraw "TestRotation" 1 '||nframe||' 0 360 0 "Rotation Trend"';
  19.   'trenddraw "TestBlue" 1 '||nframe||' 0 255 0 "Blue Trend"';
  20.   red = 0;
  21.   grn = 0;
  22.     'askprop "Width(in pixels):"10 1 100';
  23.   size=result;
  24.   'askprop "% Center Saturation Percent:" 5 0 100';
  25.   satur=result;
  26.   'askyn "Taper Off" "Taper On"';
  27.   taper = result;
  28.   'askprop "Number of arms:" 4 0 100';
  29.   arms = result;
  30.   'askyn "Non-Additive" "Additive"';
  31.   add = result;
  32.   'askyn "No Center Hot Spot" "Center Hot Spot"';
  33.   hot = result;
  34.   options;
  35.   'messagelow Now select the area to be Asterized';
  36.   'area';
  37.   end;
  38.  
  39. options results;
  40. 'trendget "TestRotation" ' iframe;
  41. rot = result;
  42. 'trendget "TestBlue" ' iframe;
  43. blu = result;
  44. options;
  45.  
  46. 'asterize 'red grn blu size satur taper arms rot add hot;
  47.  
  48. if iframe = nframe then do
  49.   'trendkill "TestRotation"'; /* Don't do this if you want to keep the curve */
  50.   'trendkill "TestBlue"';
  51.   end;
  52.  
  53. 'finish';
  54. exit 0;
  55.  
  56.